VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Frm_Msg 
   ClientHeight    =   2025
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4515
   OleObjectBlob   =   "Frm_Msg.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "Frm_Msg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim timerset As Long
Private Const SETCOUNT = 40
Private Const SETTIME = 5
Public HaveReTest As Boolean
Private Sub Cmd_OK_Click()

Frm_Msg.Hide
Unload Frm_Msg
reTestNum = 0
DoEvents
'this gives control to system,
'and the system refresh the screen,
'so that Frm_main is seen.
'without "DoEvents", Frm_Msg leaves a "blank box"
'on where it used to be
SetCursorPos 560, 320

End Sub

Private Sub Cmd_Exit_Click()

    Frm_Main.Is_Quit = True
    Unload Frm_Msg
    Frm_Main.LedControl.FillFirst = vbGreen
    Frm_Main.LinkLed.FillFirst = vbYellow
    Frm_Main.LinkLabel.Caption = "Database!"
    timerset = KillTimer(0, timerset)
    
End Sub

Private Sub Cmd_ReTest_Click()
    
    TimeGapFlag = True
    reTestNum = reTestNum + 1
    If reTestNum > SETTIME Then
        TimeGapFlag = False
        reTestNum = 0
    End If
    Frm_Main.Is_ReTest = True
    Unload Frm_Msg
    DoEvents
    
End Sub

Private Sub UserForm_Initialize()
    
    Label1.Caption = Message
    Label2.Caption = CStr(SETCOUNT)
    If Frm_Main.ISQC = False And Frm_Main.testtime <> 0 Then
        Label2.Enabled = True
        Label2.Visible = True
        Label2.Caption = CStr(SETCOUNT)
        timerset = SetTimer(0, 0, 1000, AddressOf ONTimer.SetLable)
    Else
        Label2.Enabled = False
        Label2.Visible = False
    End If
    
End Sub

Private Sub UserForm_Terminate()
    
    Label2.Caption = CStr(SETCOUNT)
    If Frm_Main.ISQC = False Then
        timerset = KillTimer(0, timerset)
    End If

End Sub
